"Relative to Movie": set fName = the moviePath & pFileName
end case
set err = PDF_Save(sprite pSprite, fName)
end if
if PDF_status(sprite pSprite) then alert "PDF Behavior Error"&RETURN&PDF_error(sprite pSprite)
end doSave
on mouseUp me
if (pEvent = #mouseUp) then doSave(me)
end mouseUp
on mouseDown me
if (pEvent = #mouseDown) then doSave(me)
end mouseDown
-- standard behavior stuff --
on getPropertyDescriptionList me
set defaultValues = GetDefaultValues (me)
set pdfSpriteList = getProp (defaultValues, #spriteList)
set defSprite = getProp (defaultValues, #defaultSprite)
if (defSprite=0) then
if the ticks - pAlertFlag > 10 then
alert "Please create a sprite of type PDF first."
end if
set pAlertFlag = the ticks -- The ticks when the user clicked "OK"
exit
end if
set p_list = [#pEvent: [ #comment: "Event", #format:#symbol, #range:[#mouseUp,#mouseDown], #default:#mouseUp], #pSprite: [ #comment: "PDF Sprite is in channel:", #format:#symbol, #range:pdfSpriteList, #default:defSprite], #pFileName: [ #comment: "Save As (File Name):", #format:#string, #default:"" ], #pPathType: [ #comment: "Path is:", #format: #symbol, #range: [ "Absolute or URL", "Relative to Movie"], #default: "Relative to Movie" ]]
return p_list
end
on getBehaviorDescription
return "Save PDF document, optionally as a new file. If File Name is empty, the current PDF document is modified. Otherwise, it is saved under the new file name." &RETURN& "Free to use and abuse. (c)1999, Integration New Media, Inc." &RETURN& "Thanks to James Newton for his suggestions"
